home *** CD-ROM | disk | FTP | other *** search
/ Scene World 6 / Scene_World_06_2003-02-15_POL__PSW_de_Side_B.d64 / b.western writer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  162 lines
  1. 10000 poke53281,7:poke53280,6
  2. 10005 forc=1to49:print:next
  3. 10010 print"[144][147]";:fora=1to40:print"*[146]";:next
  4. 10012 print"*[146]    [211]paghetti western movie writer    *";
  5. 10014 fora=1to40:print"*[146]";:next
  6. 10028 rem
  7. 10029 rem ***************************
  8. 10030 rem *adapted from the science
  9. 10031 rem *fiction novel flowchart
  10. 10032 rem *from sam j. lundwall's book,
  11. 10033 rem *science fiction, an
  12. 10034 rem *illustrated history
  13. 10035 rem *(c) 1977 - grosset & dunlap
  14. 10038 rem ***************************
  15. 10039 rem
  16. 10040 print:print"[205]any people have wondered who was"
  17. 10041 print:print"really responsible for the hundreds of"
  18. 10042 print:print"indistinguishable [194] western"
  19. 10043 print:print"movies of the 50's and 60's.  [207]ur"
  20. 10044 print:print"contention is that they were produced"
  21. 10045 print:print"by a computer."
  22. 10050 print:print"   [193]s evidence, we present the [195]-64"
  23. 10051 print:print"screenwriter."
  24. 10060 el=76
  25. 10070 w=38
  26. 10080 restore:dimph$(80),br%(80,8):fora=0toel:readn,ph$(n),br%(n,0)
  27. 10085 ifbr%(n,0)=0then10100
  28. 10090 forb=1tobr%(n,0):readbr%(n,b):nextb
  29. 10100 nexta
  30. 10110 print"";
  31. 10111 print"         press space bar";
  32. 10112 poke198,0:wait198,1:getk$
  33. 10120 print:print:ph=0
  34. 10122 ca=1
  35. 10125 print"":forc=1to20:print"                                       ":
  36. 10126 next
  37. 10127 print""
  38. 10130 rem
  39. 10140 rem
  40. 10150 t$=t$+ph$(ph)
  41. 10155 ifca=1thengosub30000:ca=0
  42. 10160 rem
  43. 10170 ifbr%(ph,0)=0then10215
  44. 10180 pi=br%(ph,0)*rnd(1)+1
  45. 10190 pj=br%(ph,pi)
  46. 10200 ph=pj
  47. 10205 iflen(t$)>wthengosub20000
  48. 10210 goto10140
  49. 10215 gosub20000:ift$<>p1$thenprintt$
  50. 10220 t$="":print:print:print"another?";:poke198,0:wait198,1:getk$
  51. 10230 ifk$<>"n"thenifk$<>"[206]"then10120
  52. 10240 goto63000
  53. 10250 remformatof the data statements:
  54. 10260 rem data/phrase#/phrase/#of possible branches/branches
  55. 10270 data0,"the town ",3,2,3,75
  56. 10280 data1,"burns up ",2,5,6
  57. 10290 data2,"marshalls ",2,12,13
  58. 10300 data3,"is attacked by ",2,14,15
  59. 10310 data4,"is massacred and ",8,7,8,9,0,0,0,0,0
  60. 10320 data5,"and everybody dies (the end)",0
  61. 10330 data6,"and almost everybody dies (the end)",0
  62. 10340 data7,"destroyed[160](the end)",0
  63. 10350 data8,"saved (the end)",0
  64. 10360 data9,"not destroyed but ",6,10,11,0,0,0,0
  65. 10370 data10,"everyone dies (the end)",0
  66. 10380 data11,"almost everyone dies (the end",0
  67. 10390 data12,"hire ",2,16,17
  68. 10400 data13,"discover ",2,16,17
  69. 10410 data14,"tiny ",4,18,19,20,66
  70. 10420 data15,"big old ",4,18,19,20,66
  71. 10430 data16,"tiny ",5,21,22,23,24,25
  72. 10440 data17,"big old ",5,21,22,23,24,25
  73. 10450 data18,"[205]exican ",5,21,22,23,24,25
  74. 10460 data19,"[195]heyenne ",5,21,22,23,24,25
  75. 10470 data20,"[195]omanchero ",5,21,22,23,24,25
  76. 10480 data21,"mongrels ",1,26
  77. 10490 data22,"wranglers[160]",1,76
  78. 10500 data23,"bandidos ",1,76
  79. 10510 data24,"rustlers ",1,76
  80. 10520 data25,"gringos ",1,76
  81. 10530 data26,"which ",6,27,28,29,30,31,32
  82. 10540 data27,"want the women ",2,33,35
  83. 10550 data28,"are friendly[160](the end)",0
  84. 10560 data29,"are friendly but misunderstood ",1,35
  85. 10570 data30,"misunderstand them ",1,35
  86. 10580 data31,"understand them too well ",1,35
  87. 10590 data32,"look upon them only as a source of gold ",2,34,35
  88. 10600 data33,"take a few and leave (the end)",0
  89. 10610 data34,"and shoot them (the end)",0
  90. 10620 data35,"and are[160]",2,36,37
  91. 10630 data36,"renegades ",1,38
  92. 10640 data37,"not renegades ",1,38
  93. 10650 data38,"and ",3,39,40,0
  94. 10660 data39,"can be killed by ",7,41,42,43,67,68,69,70
  95. 10670 data40,"cannot be killed by ",7,44,45,46,71,72,73,74
  96. 10680 data41,"a crowd of peasants with torches (the end)",0
  97. 10690 data42,"the army (the end)",0
  98. 10700 data43,"the cavalry (the end)",0
  99. 10710 data44,"the cavalry ",6,47,48,49,54,55,56
  100. 10720 data45,"the army ",6,47,48,49,54,55,56
  101. 10730 data46,"a crowd of peasants with torches ",6,47,48,49,54,55,56
  102. 10740 data47,"but ",3,53,0,0
  103. 10750 data48,"so the marshall builds a weapon ",3,50,51,52
  104. 10760 data49,"but ",5,57,58,59,0,0
  105. 10770 data50,"which fails[160]",4,47,54,55,56
  106. 10780 data51,"which kills them (the end)",0
  107. 10790 data52,"which turns them into chopped meat (the end)",0
  108. 10800 data53,"they die from typhoid (the end)",0
  109. 10810 data54,"so they kill us (the end)",0
  110. 10820 data55,"so they put us to work on the ranch (the end)",0
  111. 10830 data56,"so they shoot us (the end)",0
  112. 10840 data57,"a cute little kid convinces them we'r [207].[203]. ",3,60,61,62
  113. 10850 data58,"a priest talks to them of god ",3,60,61,62
  114. 10860 data59,"they fall in love with this beautiful girl ",4,60,61,62,63
  115. 10870 data60,"and they die[160](the end)",0
  116. 10880 data61,"and they leave (the end)",0
  117. 10890 data62,"and they turn into chopped meat (the end)",0
  118. 10900 data63,"and they get married and live happily forever after (the end)",0
  119. 10910 data64,"freezes ",2,5,6
  120. 10920 data65,"crumbles in a drought ",2,5,6
  121. 10930 data66,"foreign ",5,21,22,23,24,25
  122. 10940 data67,"the sheriff[160](the end)",0
  123. 10950 data68,"the marshall[160](the end)",0
  124. 10960 data69,"the [212]exas rangers (the end)",0
  125. 10970 data70,"the townsfolk (the end)",0
  126. 10980 data71,"the sheriff ",6,47,48,49,54,55,56
  127. 10990 data72,"the marshall ",6,47,48,49,54,55,56
  128. 11000 data73,"the [212]exas rangers ",6,47,48,49,54,55,56
  129. 11010 data74,"the townsfolk ",6,47,48,49,54,55,56
  130. 11020 data75,"",4,1,4,64,65
  131. 11030 data76,"who ",6,27,28,29,30,31,32
  132. 20000 p1$=t$
  133. 20010 iflen(t$)>wthenp1$=left$(t$,w)
  134. 20015 iflen(t$)<=wthenp1$=t$:goto20050
  135. 20020 lp=len(p1$)
  136. 20025 p2$=mid$(p1$,lp,1)
  137. 20030 ifp2$<>"[160]"thenifp2$<>" "thenlp=lp-1:iflp>1then20025
  138. 20040 p1$=left$(t$,lp):t$=mid$(t$,lp)
  139. 20050 printp1$
  140. 20060 iflen(t$)<=wthenreturn
  141. 20070 goto20000
  142. 30000 rem capitalize
  143. 30005 ift$=""thenreturn
  144. 30010 l$=left$(t$,1)
  145. 30020 ifl$>="a"andl$<="z"thenl$=chr$(asc(l$)+128)
  146. 30030 t$=l$+mid$(t$,2):return
  147. 40000 fori=0to21:poke828+i,8+i:next
  148. 40010 ifdv<8ordv>29ordv=8then40030
  149. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  150. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  151. 40040 close2:open2,i,2:close2:ifstthen40060
  152. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  153. 40060 next:print"[147]":poke53272,23:poke186,8:end
  154. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  155. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  156. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  157. 60000 d=peek(186):n$="b.western writer":open15,d,15,"s0:"+n$:close15:saven$,d:end
  158. 60005 rem"a product of q & d programming"
  159. 60010 rem"june, 1982"
  160. 63000 goto40000:remd"chr$(34)"payload"chr$(34)",8":print"qqqqruns"
  161. 63010 [151]631,13:[151]632,13:[151]198,2:[128]
  162.